program t y p e r e a l ;
var
a , b , c : real ;
d : integer ;
begin
a := 1 4 . 5 ;
b := s q r t ( 1 0 ) ; // b eh i g u a l a r a i z de 10
d := 1 0 ; / d eh i n t e i r o
c := a + d ; // c eh a soma de um r e a l com i n t e i r o
writeln ( ’a=’ , a , ’ b=’ , b , ’ c=’ , c , ’ d=’ , d ) ;
writeln ;
writeln ( ’a=’ , a : 0 : 2 ) ; // a j u s t a para duas c a s a s d e c i m a i s apos o
ponto
end .

